home *** CD-ROM | disk | FTP | other *** search
/ Aminet 3 / Aminet 3 - July 1994.iso / Aminet / dev / e / makeefile.lha / MakeEFile_and_src / Examples / PModules / argarray.e < prev    next >
Encoding:
Text File  |  1994-04-19  |  1.3 KB  |  61 lines

  1. /*
  2.  * Args array adaption for Amiga E (from amiga.lib)
  3.  * $VER: ArgArray 1.0 (18.04.94)
  4.  *
  5.  * ttypes:=_argarrayinit(_argc,_argv)
  6.  * _argarraydone()
  7.  * string:=_argstring(ttypes,entry,default)
  8.  * number:=_argint(ttypes,entry,default)
  9.  *
  10.  */
  11.  
  12. /* We need to define _argc & _argv before */
  13. PMODULE 'PMODULES:User/astartup'
  14.  
  15. PROC _argarrayinit(argc,argv)
  16.   DEF tooltypesarray=NIL:LONG
  17.   IF iconbase=NIL THEN Raise("ICON")
  18.  
  19.   PEA    _argarraydatabase(PC)
  20.   PEA    tooltypesarray
  21.   MOVE.L iconbase,-(A7)
  22.   MOVE.L argv,-(A7)
  23.   MOVE.L argc,-(A7)
  24.   INCBIN 'PMODULES:User/argarray/argarrayinit.bin'
  25.   LEA    20(A7),A7
  26. ENDPROC tooltypesarray
  27.  
  28. PROC _argarraydone()
  29.   PEA    _argarraydatabase(PC)
  30.   MOVE.L iconbase,-(A7)
  31.   INCBIN 'PMODULES:User/argarray/argarraydone.bin'
  32.   ADDQ.W #8,A7
  33. ENDPROC
  34.  
  35. PROC _argstring(tooltypesarray,entry,default)
  36.   DEF result
  37.  
  38.   MOVE.L iconbase,-(A7)
  39.   PEA    result
  40.   MOVE.L default,-(A7)
  41.   MOVE.L entry,-(A7)
  42.   MOVE.L tooltypesarray,-(A7)
  43.   INCBIN 'PMODULES:User/argarray/argstring.bin'
  44.   LEA 20(A7),A7
  45. ENDPROC result
  46.  
  47. PROC _argint(tooltypesarray,entry,default)
  48.   MOVE.L dosbase,-(A7)
  49.   MOVE.L iconbase,-(A7)
  50.   PEA    default
  51.   MOVE.L entry,-(A7)
  52.   MOVE.L tooltypesarray,-(A7)
  53.   INCBIN 'PMODULES:User/argarray/argint.bin'
  54.   LEA 20(A7),A7
  55. ENDPROC default
  56.  
  57. _argarraydatabase:
  58.   LONG 0
  59.   LONG 0
  60.   LONG 0
  61.